home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / N-P / PaintToolUnit.cpt / PTUnit.Interface < prev    next >
Encoding:
Text File  |  1988-10-31  |  866 b   |  42 lines  |  [TEXT/TPAS]
  1. Unit PaintToolUnit(88);
  2.  
  3. {$U-}
  4.  
  5. Interface
  6.  
  7. Uses
  8.   MemTypes,QuickDraw,OSIntf,ToolIntf;
  9.   
  10. Const
  11.   { tool constants }
  12.   TText     = 1;        { not used }
  13.   TPencil   = 2;
  14.   THand     = 3;        { not used }
  15.   TGrabber  = 4;        { not used }
  16.   TBucket   = 5;
  17.   TLasso    = 6;        { not used }
  18.   TBrush    = 7;
  19.   TSpray    = 8;
  20.   TLine     = 9;
  21.   TEraser   = 10;
  22.   TRect     = 11;
  23.   TRectF    = 12;
  24.   TRRect    = 13;
  25.   TRRectF   = 14;
  26.   TOval     = 15;
  27.   TOvalF    = 16;
  28.   TArc      = 17;
  29.   TArcF     = 18;
  30.   TRLine    = 19;
  31.   TRLineF   = 20;       { not implemented }
  32.   TSLine    = 21;       { not implemented }
  33.   TSLineF   = 22;       { not implemented }
  34.   
  35.   { error constants }
  36.   TUnknown  = 800;
  37.   TUnImp    = 801;
  38.  
  39. Function  InitPaintTools : Integer;
  40. Procedure DoPaintTools (which : Integer; where : Point; modifiers : Integer);
  41. Function  PTError : OSErr;
  42.